home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WebTVGet.lha / WebTVGet / TVData / getTV < prev    next >
Encoding:
AmigaDOS Script File  |  1998-10-18  |  2.4 KB  |  67 lines
  1. .key o1,o2,o3
  2. .bra {
  3. .ket }
  4.  
  5. ; opt1=TagesNr.
  6. ; opt2=TagesZeit 
  7. ; Opt3= Tagesname
  8.  
  9. failat 65000
  10. setenv cnt=1
  11.  
  12. echo "Daten werden geladem..."
  13. echo ""
  14.  
  15. lab again
  16.  
  17. TVGrab:httpget >nil: -q -o "T:$cnt !!" "http://www.iwz.de/cgi-bin/os/nph-srch.exe?FUNCTION=SEARCH?S=3SA?S=ARD?S=ART?S=BA3?S=EUR?S=HR3?S=KAB?S=KKA?S=MDR?S=NO3?S=PR7?S=RTL?S=RT2?S=SA1?S=SRT?S=SW3?S=TM3?S=VOX?S=WE3?S=ZDF?TAG={o1}?SP=0?T={o2}?START=`echo $cnt noline`"
  18.  
  19. type >>T:AllInOne.html "T:$cnt !!"
  20. search >nil: "T:$cnt !!" "Weiter (Treffer"
  21. if warn
  22. skip end
  23. endif 
  24.  
  25.  
  26. echo "Zeilen gelesen: " noline
  27. eval >nil: <env:cnt value2=20 op=+ to=T:cnt1 ?
  28.  
  29. unsetenv cnt
  30. copy T:cnt1 env:cnt
  31. type env:cnt
  32.  
  33. skip again back
  34.  
  35. lab end
  36.  
  37. echo ""
  38. echo "Ende gefunden, sortiere..."
  39. delete >nil: T:#?!!
  40.  
  41. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "Mit den von Ihnen ausgewählten Suchkriterien konnten folgende Sendungen gefunden werden:" ""
  42. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "Zeichenerklärung" ""
  43. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "iwz</FONT></B>-Illustrierte Wochenzeitung" "</FONT></B>"
  44. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "IWZ TV-Programm" ""
  45. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "<A HREF=" "<!--"
  46. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "</A" "<!--"
  47. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "<HR" "<!--"
  48. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "<CENTER" "<script"
  49. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "</CENTER" "</script"
  50. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html " <BR>" ""
  51. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 " " ""
  52. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "<FONT" "<!--"
  53. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "</FONT" "<!--"
  54. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "©" ""
  55. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "<P>" "<!-->"
  56. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "<FORM>" "<script>"
  57. TVGrab:replace >nil: T:AllInOne.html T:AllInOne.html1 "</FORM>" "</script>"
  58. TVGrab:replace >nil: T:AllInOne.html1 T:AllInOne.html "<!-- TAGES-KOPF BEGIN -->" "<BR>"
  59.  
  60. TVGrab:HTTX >nil: T:AllInOne.html T:FernsehenHeute.txt IMG noheader filenote ansi len=80 indent=5
  61.  
  62. copy >nil: T:FernsehenHeute.txt TVGrab:/!Fernsehen{o3}.txt
  63.  
  64. delete >nil: T:cnt1
  65. delete >nil: T:fernsehen#?
  66. delete >nil: T:AllInOne#?.html
  67.